<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="/Inc/AspBox/Cls_AB.asp" -->
<% if 1=2 then %>
<FORM action="?id=5" method=POST id=form1 name=form1 enctype="multipart/form-data">
<INPUT type="text" name=text1>
<INPUT type="text" name=text1>
<INPUT type="file" name=file1>
<INPUT type="submit" value="Post">
</FORM>
<% else %>
<FORM action="?id=5" method=POST id=form1 name=form1
<INPUT type="text" name=text1>
<INPUT type="text" name=text1>
<INPUT type="submit" value="Post">
</FORM>
<% end if %>
<%
'ab.trace (":server")

dim c(2,2)
c(0,0) = "0-0" : c(0,1) = "0-1" : c(0,2) = "0-2"
c(1,0) = "1-0" : c(1,1) = "1-1" : c(1,2) = "1-2"
c(2,0) = "2-0" : c(2,1) = "2-1" : c(2,2) = "2-2"

dim d : d = array(array(0,1), array(1,3,4))

dim x : x = array("a", 0, "c")
dim y : y = "yyy"

dim debug
set debug = ab.Ext("debug")
debug.ifEnabled = true '监听变量控制开关
debug.list "x, y, c, d" '添加监听变量
'debug.del "x, y" '移除监听变量

'ab.trace debug.varDict

debug.ShowVars() '输出监听变量信息
'debug.ShowCookies() '输出cookie信息
'debug.ShowAll() '输出全部信息

y = "改变后的y值"
debug.list "y" '需要再次存储监听
debug.del "c, d" '移除不想监听的变量
debug.ShowVars() '输出监听变量信息

On Error GoTo 0
%>